﻿Imports Tohto.Base.DBUtility
Imports Tohto.Base.Entity
Imports Oracle.DataAccess.Client
Imports System.Text

Public Class RP0020B02
    Public Function Fecth_List(ByVal strLoginid As String, _
                             ByVal strI_VC_KOJI_NO As String, _
                    ByVal strI_NM_TEHAI_NO As Integer, _
                    ByVal strI_NM_ROW_NO As Integer, _
                    ByRef effInfo As PLSQLErrorInfo) As DataTable
        Dim dt As DataTable
        dt = FAKEDATA()
        Return dt

    End Function

    Public Function FAKEDATA() As DataTable


        Dim DT As DataTable = New DataTable
        DT.Columns.Add("ARTICLE_CD")
        DT.Columns.Add("GYOSHA_NM")
        DT.Columns.Add("GYOSHA_TEL")
        DT.Columns.Add("GYOSHA_FAX")
        DT.Columns.Add("KANRI_EMP_NM")
        DT.Columns.Add("KANRI_POST_ZIP_CD")
        DT.Columns.Add("KANRI_POST_ADDR")
        DT.Columns.Add("KANRI_POST_NM")
        DT.Columns.Add("KANRI_POST_TEL")
        DT.Columns.Add("KANRI_POST_FAX")
        DT.Columns.Add("ARTICLE_NM")
        DT.Columns.Add("ADD_CONNECTION_LOCATION")
        DT.Columns.Add("ROOM_TYPE")
        DT.Columns.Add("HIKIWATASI_POST_CD")
        DT.Columns.Add("ROOM_NM")
        DT.Columns.Add("EVACUATION_EXPECTED_DATE")
        DT.Columns.Add("TATIAI_YT_DT")
        DT.Columns.Add("KANRYO_YT_DT")
        DT.Columns.Add("GYOSHA_RENRAKU")
        DT.Columns.Add("KOJI_NO")
        DT.Columns.Add("TEHAI_SHUBETU")

        Dim dr As DataRow = DT.Rows.Add()

        dr.Item("ARTICLE_CD") = "物件CD"
        dr.Item("GYOSHA_NM") = "宛先"
        dr.Item("GYOSHA_TEL") = "123-456-9988"           'TEL
        dr.Item("GYOSHA_FAX") = "123-456-8899"              'fax
        dr.Item("KANRI_EMP_NM") = "管理担当者名"
        dr.Item("KANRI_POST_ZIP_CD") = "5566887"       '管理部署郵便番号
        dr.Item("KANRI_POST_ADDR") = "管理部署住所1,xxxx街5号"
        dr.Item("KANRI_POST_NM") = "管理部署名"
        dr.Item("KANRI_POST_TEL") = "456-889-7546"       '管理部署
        dr.Item("KANRI_POST_FAX") = "456-889-7564"       '管理部署FAX
        dr.Item("ARTICLE_NM") = "物件名"
        dr.Item("ADD_CONNECTION_LOCATION") = "現住所2, XXXX街43号"
        dr.Item("ROOM_TYPE") = "002"
        dr.Item("HIKIWATASI_POST_CD") = "BABABAB"
        dr.Item("ROOM_NM") = "999"
        dr.Item("EVACUATION_EXPECTED_DATE") = "1999/2/3"
        dr.Item("TATIAI_YT_DT") = "2003/4/5"
        dr.Item("KANRYO_YT_DT") = "2007/9/8"
        dr.Item("GYOSHA_RENRAKU") = "リニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展ですリニューアルオープン後第一弾の特別展です"
        dr.Item("KOJI_NO") = "15988561"
        dr.Item("TEHAI_SHUBETU") = "01"

        Return DT




    End Function

End Class
